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ABSTRACT 


A COMPUTER GRAPHICS APPROACH 


TO NON-LINEAR CIRCUIT DESIGN 


This investigation is concerned with computer and programming re- 
quirements for on-line network design. A class of problem involving 
non-linear diode resistance networks was chosen. Such networks provide 
a useful form of general purpose function generator, here applied to 
the specific task of вун generation. A procedure was implemented 
whereby the user "draws" the required symbol to be generated on a 
cathode ray tube display, and output is obtained in the form of a 
labeled circuit diagram of the synthesized network. The validity of 
the computer-graphic design program was demonstrated by construction 


and testing of a particular symbol generator. 
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CHAPTER I 


INTRODUCTION TO THE GENERAL DESIGN PROBLEM 


1. OBJECTIVES OF THE APPROACH TO COMPUTER DESIGN 

It is the aim of this work to study the modern technique of engi- 
neering design by digital computer using graphical methods of data 
display. Details of the methods required for both input and output 
data display will be investigated. For many problems graphical displays 
are the most direct communication link between man and machine. In 
order to illustrate these techniques, a problem in nonlinear linear 
network synthesis was chosen. This problem involves the synthesis of 
the circuitry to produce the waveforms to generate a symbol. Because 
of the nonlinear nature of the waveforms, the synthesis involves an 
iterative numerical solution. A system of graphical input and output 
data display was devised for this design problem. It is hoped that this 
study will yield insight into a general approach to design using these 


methods. 


2. BASIC FUNCTIONS OF THE COMPUTER AIDED DESIGN SYSTEM 

In many cases the choice of the specific method used in a particu- 
lar facet of the example design problem was dictated by the practical 
limitations of the computer and its peripheral equipment. Regardless of 
these limitations, the system operates satisfactorily and serves well to 
demonstrate the salient features of this approach to design. As a par- 
ticular example, the computer design of the letter "L" will be studied. 
The first phase of the design procedure is to input the data into the 
computer. The primary input source is the track-ball which may be posi- 


tioned in X and Y coordinates. The track-ball analogue position is 
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converted to nine bit ones complement digital position coordinates. The 
data are entered by drawing a piecewise linear sketch of the letter "L" 
on the display using the track-ball. The sequence of strokes used to 
sketch the letter will be the same sequence of strokes produced by the 
designed circuit in displaying the letter. The track-ball data are con- 
verted to a twenty-two bit format as it is entered into the data tables 
as illustrated in figure 1. The secondary source of data would be data 
produced as above and prestored on magnetic tape. The next step in the 
design is to select the compute operation. There are two arguments 
which may be altered to suit the specific design requirements. The 
first is the voltage in millivolts which is used in the sweep supply 

for the designed symbol generator circuit. The second is the ratio of 
input data units, describing symbol size, to the corresponding output of 
the designed circuit in milliamperes. Saying this another way, the ver- 
tical leg of the letter "L'" has a length in input units. The designed 
circuit must produce a specified number of milliamperes to produce the 
desired height. The relationship of these two arguments in the design 
Procedure is more fully covered in Chapter III. After selecting the 
compute operation the computer does the proper calculations and auto- 
matically compiles the output display file. In the case of the letter 
"UL", there are two piecewise linear regions. The circuitry therefore 
consists of two series resistance diode legs connected in parallel in 
both the "X" and "Y" circuits. Only the "X" or "Y" circuit is displayed 
at one time. Figure l shows the format of the "Y" display. It is noted 
that the resistances shown in each leg act both as voltage dividers to 
produce the proper bias voltage for the diode and as circuit resistance 


which is switched into the circuit by the diode. Figure 2 shows how 
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FIGURE 1 


FUNCTIONAL BLOCK DIAGRAM OF SEQUENCE OF 
COMPUTER DESIGN OPERATIONS 
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the "X" and "Y" circuit output waveforms form the letter "L", The 
theory of how these circuits produce these waveforms is left to Chap- 


ter II. 
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ILLUSTRATION OF HOW CIRCUIT WAVEFORMS 
PRODUCE THE LETTER "L" 


СНАРТЕК 11 


COMPUTER DESIGN APPLIED TO THE DESIGN OF SYMBOL GENERATORS 


1. FUNCTION GENERATORS AND THEIR DESIGN BY 
ALGORITHMIC PROCEDURES 

As indicated in Chapter I, the design problem is solved using an 
algorithm which results in an iterative computational process. The 
specific design being considered is that of symbol generators. The sym- 
bol generators to be considered are function generators which consist of 
resistances and biased diodes. The method by which these function gen- 
erators may be used to obtain piecewise linear approximations to symbols 
will now be described. Figure 3 illustrates the generation of a piece- 
wise linear monotonic function using a parallel bank of resistors which 
are switched into the circuit by means of single-pole, single-throw 
switches which are closed sequentially with time. Note that the circuit 
of figure 3 produces a monotonically increasing current output function. 
Figure 4 illustrates the generation of a monotonically decreasing func- 
tion. It is possible by the summation of a monotone increasing and a 
monotone decreasing function to produce a function which is no longer 
monotone. As a practical aspect, the single-pole, single-throw switches 
may be replaced by diodes biased at different levels of voltage so that 
they switch at various times after the input sweep is commenced. Since 
the input is linear with time this corresponds to the diodes switching 
at various input voltages. The current outputs are added in a summing 
network. At any instant of time the value of the output current slope 
from the function generator is the product of the voltage slope divided 


by the total parallel resistance which is in the circuit at that time. 
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This gives a positive increase of current with time for the case of fig- 
ure 4. Since the outputs of two function generators are summed together, 
the resulting current slope is an algebraic addition of the two current 
slopes. Now for any case, the total network resistance is defined as 


the voltage slope dv divided by the current slope dI which may be alge- 
dt dt 
braically positive or negative. 


RTOTAL = dv (1) 
dt 
dI 


dt 





In order to determine the resistance required to be added to a func- 
tion generator to produce a new specified slope (new total network re- 
sistance), it is necessary to take the present total network resistance 
and compute the resistance to be added ín parallel to produce the new 
desired network resistance. If the resistance turns out to be negative, 
this means the resistance is to be paralleled with the resistors in the 
monotone-decreasing function generator. This is shown symbolically as 
follows: 


RTOTAL(2) = RTOTAL(1) R(2) 
RTOTAL(1) + R(2) 


where RTOTAL(2) is the parallel resistance of RTOTAL(1) and R(2) 


Hence R(2) = RTOTAL(1) RTOTAL(2) 


RTOTAL(1)-RTOTAL(2) 


This may be written in the form of an algorithm: 


R(1+1) = RTOTAL(1) RTOTAL(1+1) (2) 


RTOTAL(1)-RTOTAL(1*1) 


with R(1) = RTOTAL(1) 
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2. DESIGN OF SYMBOL GENERATORS USING FUNCTION GENERATORS 

Symbols may be displayed on a cathode ray oscilloscope by applying 
the correct wave forms to the two pairs of orthogonal plates. These 
wave forms must be designed so that they move the tube electron beam at 
a constant rate, as it sweeps out the character, so that a constant in- 
tensity figure is painted on the tube face. This is ensured by arrang- 
ing that the wave form on each of the two orthogonal plate pairs satis- 
fies the restriction that it change its amplitude at a constant rate, 
Also, since the wave forms must be in time phase, switching must occur 
simultaneously in both the function generators at each change in slope 
of the symbol being generated. This means that the individual plate 
wave forms may be designed separately against a dummy time variable. 
The latter is derived from the fraction of the total distance traveled 
between the discontinuous slope changes of the symbol generated. This 
distance is obtained from the input data which is in the form of two co- 
ordinates defined for each discontinuity in the symbol to be generated. 
Let these coordinates be defined X and Y. Considering X only, the 
change in t in time units (distance), between adjacent coordinates de- 
noted X(i) and X(i+l) respectively, is calculated. Each of these indi- 
vidual time intervals is summed up to the i+lth coordinate to give t(i+l). 
If there are n coordinate points, the last time is t(n+l). The fractional 
time is given by equation three. 


t(1£) = t(i) (3) 
t(n*1) 


where t(l) = 0 
Now to compute resistance RTOTAL(i), it is necessary to know what the 


current slope is during the i:+lth interval. The X coordinates are pro- 


portional to the current required from the X function generator as 
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defined by equation four. 


I(i) = (X(i)) (4) 
k 


where k is the scale factor in units of input 
X per milliampere of current. 
Thus it is seen the current slope is given by equation five. 
1 (5) 
Current rate milliamperes/sec. = k (X(1+1)-X(1)) 
t(1+1)-t(1) 
Now t(nf), derived from equation three for the index n, is 1 and letting 
Vmax be the maximum input voltage, the input voltage rate in millivolts/ 


second is Vmax. By substituting these values in equation 1, one obtains 


the expression given in equation 6. 


RTOTAL(1+1) = KVmax(t(1+1)-T(1)) (6) 
(Х(1+1)-Х(1)) 


The index i in equation six goes from l to n. In the special case 

where i is unity, the value of t(l) is zero. In the case where the re- 
sistance diode network is biased by some series bias voltage which op- 
poses the input sweep voltage, the effective branch resistance is higher 
than that given in equation 6. A correction factor may be added to Vmax 


to account for this. Since the bias voltage E(i) = Vmaxt(i), the correct 


t(n+1) 
RTOTAL is computed using equation 6a. 
RTOTAL(i+1)  k(t(i«l)-t(i)) Vmax(l-t(i)) (6a) 
(X(1 +1) - X(i) t(n+1) 


Equation 6a simplifies to equation 6 in the case that the bias voltage 
is zero. This completes the algorithm. The order of computation is 
equation 6a then equation 2. The scale factor used on the input data is 
defined in equation 4. It is the ratio of the maximum input X to the 


maximum current output from the function generator. The latter value is 
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arrived at from power dissipation considerations while the former 15 


determined by the input device. 


N 
Pa 


CHAPTER III 
THE PRACTICAL IMPLEMENTATION OF THE 


SYMBOL GENERATOR DESIGN ALGORITHMS 


1. SYMBOL GENERATOR DESIGN 

As mentioned in paragraph 1 of Chapter II, the switching devices 
used in the function generators are biased diodes. Figure 5 indicates 
the practical method of obtaining the requíred resistance diode network. 
The equivalent circuit of this network is illustrated in figure 6. Ini- 
tially it is assumed that the diode D(i) and the power supply Vmax, 
shown У figure 5, are both ideal in nature. This being the case, the 
Voltage E at point E of figure 6 is given by equation 7 while the re- 


sistance R(i), looking into the same point, is given by equation 8. 


E(i) = R(il) Vmax (7) 
&(1Г) 8 (42) 


R(i) » R(il) R(i2) (8) 


R(11)+R(12) 
Solving these equations for Ril and Ri2 the relationships given in equa- 


tions 9 and 10 are obtained: 


R(il) = Vmax R(i) (9) 


Vmax-E(1) 


R(i2) = Vmax R(i) (10) 
E(i) 


In actual fact the diode D(i) of figure 5 has some resistance even when 
forward biased by several milliamperes. Figure 7 shows the value of 
forward current plotted against bias voltage for a typical silicon diode, 
The effect of this resistance will be discussed later. Additionally, 

the resistor Ro of figure 5 affects the bias of diode D(i). The total 


parallel resistance of all R(i), as illustrated in figure 6, was con- 


strained to be greater than one hundred ohms in the designed symbol 
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FIGURE 5 
A TYPICAL SECTION OF A FUNCTION GENERATOR 
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generators. The value of Ro could add appreciable error to the bias 
level when the circuit resistance is low. A related error is found in 
the internal impedance of the supply Vmax. These latter errors must be 
compensated for by subtracting a compensating resistance value from the 
computed R(i2) to give the corrected potentiometer setting. It is noted 
that the battery internal impedance would be shunted by the remaining 
series values of R(il) and R(i2). If the internal impedance of the bias 
supply is large, these resistors will have an appreciable effect. How- 
ever if the internal impedance of the bias supply, plus Ro of figure 5, 
is less than twenty ohms, the correction factor will be very nearly 20 
ohms. Returning to the question of the diode forward impedance, it is 
seen from figure 6 that this must be subtracted from the computed R(i) 
to give correct results. However, the bias voltage is a function of 
time. To remove this time dependence, it is necessary that the value of 
Vmax be large so that the diode resistance is negligibly small after the 
diode is switched. Values of 20 volts or more were found to give excel- 
lent results. 

It is seen from figure 8 that the load resistor R must be large 
enough so that as VTOTAL changes, the loadline moves over a linear por- 
tion of the diode characteristic and produces a current which is line- 
arly related to the current which would flow if the resistance were 
there alone. However, the resistor must be small enough to ensure fast 
switching time, as the rate of change of bías current is proportional 
to the rate of change of  VIOTAL and inversely proportional to the load 
resistor R. This is the chief reason for constraining R to be between 


100 and 10,000 ohms. 
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2. SYMBOL GENERATOR SENSITIVITY 

It is of importance that the symbol generators not only perform 
their specified task in the best possible manner, but that they do so 
with good reliability. The reliability aspect mainly refers to the 
change in component parameters with time. The voltages fed to the sym- 
bol generators may be electronically regulated. The components them- 
selves are sufficiently simple that they should exhibit a low failure 
rate. However, there are factors which would cause circuit resistance 
values to change with age. The following analysis will determine the 
seriousness of this problem. 


From equation 1 it is seen that 


dI = dv 
dt dt 
RTOTAL 


where RTOTAL at any time is made up of a number of parallel 


resistors R. That is: 


1 = 1 4 1 + °°. 1 
RTOTAL КІ R2 R(1) 

Hence dI = dv(l 4. 1 +... 1 ) 
dt  dt(Rl R2 R(1)) 


Now д (ат) s dV 


dv = -dI RTOTAL 
t R(i) dt R(1)2 


From the last two expressions equation 11 15 obtained: 





"A dI (11) 
dt = -RTOTAL (AR(1)) 
dI R(i)  (R(1)) 
dt 
Similarly, differentiating the expression for 1 with respect to 
RTOTAL 


R(i): 
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ж О RTOTAL = - 1 


(RTOTAL)? 3 ка) в(1)2 
ARTOTAL _ RTOTAL AR(i) (12) 
RTOTAL 469 R(1) 


Thus it is seen from equations ll and 12 that the value of RTOTAL, which 
determines the output current, and dI have sensitivities proportional to 
the sensitivity of R(i) by the авио constant RTOTAL. This 
proportionality constant is less than unity since Е(1) NA of the 
parallel resistances comprising RTOTAL. Hence the circuit will exhibit 
good circuit stability. Furthermore, by setting these resistance values 
on potentiometers using a bridge, the symbol distortion due to inaccurate 


values of R(i) will be less than the error of the bridge which can be 


very small. 


3. SOFTWARE STRUCTURE 

The following paragraphs describe the computer software used in the 
particular design problem of Chapter II. Figure 9 shows the software 
used in the complete computer designs system. 

The primary data source is the track-ball which is used in conjunc- 
tion with the data input routine. The latter converts track-ball data 
to the fixed computer-word format and enters it in the data tables. 

Once the data are entered in the data table the data display subroutine 
feeds the information to the data display file which is displayed by the 
data display subroutine. Control is generally left in the track-ball 
driver routine which refers all action requests to the console control 
routine. The secondary source of data is magnetic tape which is operated 
as a service routine to fill the data table and display file. Comments 


may be added to or removed from the data display file. These operations 
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SOFTWARz USED IN THE COMPUTER DESIGN 
OF SYMBOL GENERATORS 


bypass the data display table and so have no effect on the design proc- 
ess. The subroutine which enters data into the data tables is also used 
to erase the data table and display file. This operation may be carried 


out at any time in the design process. 


4. DETAILED OPERATION OF SUBROUTINES 

Most of the subroutines need little explanation as their sequence 
of operation is flow charted in figures 10 to 23 inclusive. The sub- 
routine comput and its associated subroutine disply are shown in figures 
18 and 19. These subroutines do the arithmetic computations of the algo- 
rithmic equations 2, 6a, 7, and 8. The calculations are done in twenty- 
two bit fixed-point format. Тһе fixed point arithmetic was accomplished 
by using a floating scale factor ensuring the numbers were manipulated 
to stay within the computer's maximum precision size. Calculations were 
performed so as to leave scaling down until the last in order to avoid 
round-off errors. Considering the square-root operation of block E of 
figure 18, it is noted that this calculation is a completely fixed point. 
The square-root subroutine computes the value of the square-root to the 
nearest digit. The computer computational accuracy compares favorably 
with the input accuracy which is point two percent. Appendix III gives 
details on methods used to maintain computational accuracy. The computed 
resistance values in the computer program of Appendix II were constrained 
to lie between 64 and 8192 sohms. These numbers cover the range of 100 
to 10,000 ohms in octal. The reason for the restricted range is seen by 
considering figure 8, in which it is seen that R, which corresponds to a 
R(i) of equation 1l, acts as the load resistance for a diode. Load re- 
sistors much larger than the upper value of 8192 ohms cause the diode to 


switch too slowly, while the lower value is used because of power 
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dissipation considerations. The next subroutine to be consídered is 
disply which is the display driving subroutine. The flow chart for dis- 
ply is illustrated in figure 19. This subroutine assembles a display 
file. Display outlines are stored in memory and transferred to the 
display file. These outlines have internal positions where information 
is stored before it is transferred. This information consists of arith- 
metic computations, identification labels and display position coordin- 
ates. In the case of the computational results, these are taken from 
the output computation table by the octal-decimal conversion subroutine 
and inserted directly into the display outline. Data are inserted in 
the outline in positions which are designated by arguments added to the 
end of the display outline code. The iterative display process is con- 
tinued until all table values have been converted and transferred to the 


display file. 


5. INSTRUCTIONS FOR THE OPERATION OF THE 
COMPUTER DESIGN PROGRAM 
The following instructions refer to the operation of a control data 

corporation model 160 computer with an associated DD65 display system. 
Figure 26 shows the arrangement of the control keyboard which is called 
keyboard II. The program is run from cell 100. After activating the 
track-ball, the track-ball is positioned for the start position of the 
symbol. The coordinates are entered from the draw button. The track- 
ball is then moved to the next position and the draw button is again 
pressed. The coordinates of the new position are entered in the data 
table and a line appears between the new and the old coordinates. A 


symbol is drawn in this fashion with its break points recorded in the 
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data table. If, during this process, a line is drawn which is to be 
blanked out in the display symbol, the blank button is pressed immedi- 
ately after drawing the line. Comments may be added or removed at any 
time by first pressing appropriate button. Typing a carriage return 
allows normal operations to continue. It is good practice to store the 
sketched symbol on magnetic tape, since it contains all the information 
needed for its design. This is done by the write-on magnetic tape but- 
ton, The block number must be typed in before this action occurs. De- 
sign is accomplished by pressing the compute button. After about a 
second, the circuit diagram for the X plate function generator will 
appear, Pressing the compute button again will produce the circuit día- 
gram for the Y plate function generator. The circuit diagrams are alter- 
nately switched from X and Y by sequentially pressing the compute button. 


The type of circuit, X or Y, is labeled above the display circuit. 


6. COMPUTER DESIGN OF THE LETTER "Р" 

As an example of the application of computer design, the letter "Р" 
was designed using the Fortran program of Appendix I. The following 
sentences describe in detail the procedure used to accomplish the design. 
Firstly, the letter was drawn to scale on paper. The scale was such 
that the maximum letter size was three hundred units. This was chosen 
to closely correspond to the size of character which might be drawn on 
the DD65 display mentioned in section 5 of this chapter. The designed 
character was to be displayed on a cathode ray oscilloscope on a scale 
of 0.1 volts per centimeter. The letter size was chosen to be slightly 
larger than one centimeter. It was decided to sample the current with a 


ten ohm resistor. From these decisions, the value of k, as defined by 


34 


equation 4, is thirty. The value twenty-five was chosen and corresponds 
to the value of Isens in the Fortran program of Appendix I. The value 

of Vmax was chosen as twenty volts. This corresponds to a value of two 
thousand millivolts for IVmax in the Fortran program of Appendix I. The 
correction for seventy-five ohm power supply internal impedance and ten 
ohm sampling resistor was taken to be sixty ohms. This correction was 

discussed in section 1 of Chapter III. With this data, the program was 


executed and the results obtained are included in Appendix I. 


7. CIRCUIT REALIZATION AND DISPLAY OF THE LETTER "P" 

Figures 24 and 25 show the circuitry for the function generators 
required to produce the wave forms necessary for the display of the let- 
ter "P", The circuit diagrams corresponding to these which were produced 
by the DD65 display are shown in figures 27 to 29. The resistance values 
chosen were those from the Fortran program of Appendix I. A photograph 
of the symbol generator and ancillary equipment is presented in figure 
29. The various parts of the circuitry are labeled in the block diagram 
of figure 30 and listed in Table I. Figures 31 to 35 show various wave 
forms of the symbol generator circuit. It should be observed that the 
sweep input of figure 31 was not of perfectly uniform intensity which 
caused a slight bit of intensity variation in the character. This was 
due to the necessity of intensity modulating the oscilloscope to remove 
the distortions and the idle part of the sweep of figure 30. The imper- 


fect intensity modulation is apparent from figures 31 and 32. 
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TABLE I 


TABLE OF EQUIPMENT USED WITH SYMBOL FUNCTION GENERATORS 


TO PRODUCE SAMPLE CHARACTER "P" 


QUANTITY EQUIPMENT MANUFACTURER REMARKS 
1 Function Generator Wavetek, Model 112 Sawtooth 
Function used 
2 Power Amplifier Hewlett Packard, 0-20 Volts, 
Model 467A 20db gain, 
0- 1MHz 
1 Unit Pulse Generator General Radio, 
Type 1217-B 
1 Oscilloscope Hewlett Packard, 
Model 20B 
2 Power Supply Hewlett Packard, 0-30 Volts, 
Model 721A 0-225 milli- 
amperes 
L Impedance Bridge General Radio, 
Type 650A 
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CHAPTER IV 


DISCUSSION OF RESULTS AND CONCLUSIONS 


1. DISCUSSION OF THE RESULTS 

The results of the example design problem were partially discussed 
in section 7 of Chapter III. 1: 15 seen from figure 35 that this design 
procedure yields a very acceptable character. It is noted that the 
character display time is two hundred microseconds. While this is com- 
paratively slow, tests were made at twenty microseconds that were encour- 
aging. These tests are not included since sufficient error existed in 
the input sweep voltage wave form at a twenty microsecond sweep time to 


invalidate the results. 


2. CONCLUSIONS 

The procedure developed for symbol design proved to be easy to fol- 
low and gave a solution which was suitable for output to a plotter. More 
flexibility could have been obtained at the expense of larger core stor- 
age. The economy of core storage utilized is illustrated in Table II. 
Programing effort would have been considerably reduced if a separately 
stored library of service subroutines were available. In this regard, 
it is felt that the output display also could have been presented more 
easily if there were library stores of code to be used for display of 
circuit components. Using this method, output display could be built up 
with little programing effort using the canned circuit component code. 
In addition to the above remarks, it is also felt that the existence of 
a supervisory control subroutine, controlling arithmetic accuracy, also 
would have reduced the programing load. Such a subroutine would not 


necessarily have to use floating-paint techniques, but would look after 
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TABLE II 


ALLOCATION OF CORE STORAGE FOR COMPUTER 


PROGRAM OF APPENDIX II 


SUBROUTINE CORE STORAGE SUBROUTINE CORE STORAGE 


Console 100-116 Disply 2000-2240 
Trkbal 117-153 r/wr 2450-2515 
tb 155-172 Read/Write 2517-2551 
drw 173-263 Blank 2555-2575 
Line 1 257-507 Oc tdec 2600-2761 
Print 516-710 S Root 2770-3073 
Dis 750-1034 Main Outline 3100-3145 
Enter 1050-1145 Pos Outline 3200-3257 
Remove 1150-1224 Neg Outline 3300-3357 
Comput 1250-1740 Tables & Files 3600-3777 
Buffer ) 

Temporary ) 0-77 

s/r Jump ) 

Index ) 
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the maintenance of accuracy and ensure that large arithmetic errors, such 
as overflow occurring in multiplication operations, did not occur. Fi- 
nally, it is regretted that the software was not available to output the 
solution in hard copy form. In spite of the above shortcomings of avail- 
able computer service subroutines and peripheral equipment, the procedure 
demonstrated the ease and flexibility with which this type of design may 


be accomplished. 
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PHOTOGRAPH OF THE COMPUTER DESIGNED CIRCUITRY 
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BLOCK DIAGRAM OF CIRCUITRY AND EQUIPMENT 
USED TO DISPLAY THE LETTER "Р" 
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FUNCTIONAL DIAGRAM OF KEYBOARD II 
ON THE DD 65 CONSOLE 
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APPENDIX I 


FORTRAN PROGRAM FOR THE DESIGN OF SYMBOLS 


0595», TYNAN JM»5S/15S/2S5155,10000, 


IN +L Е 


Фо O. Q 


10 


PROGRAM DSINET 

DIMENSIONNXY(60)»IRPOS(30)»IRNEG(3 )»IVPOS(30)»I1VNEG(30)»I1TEMP(30) 
DO 1121530 

NXY (2*I-1)=0 


NXYC2*I)20 
I TEMP(I)20 
IRPOS(1)=0 
IRNEG(I)20 
ІУРО5( 11-0 
ІУМЕС( 1) =0 
IFLAG=-1 


DO 530 Қ-1»2 

NXY IS A TABLE OF X SPACE Y SPACE ETC, FORMAT 
READ 2» (NXY(I)»1I721528»52) 

FORMAT((7110)) 

NOW THE COMPUTATIONS FOR X OR Y WILL BE DONE 
IFLAG = IFLAG+i 

ІШІ 0 
ID 0 
IV 0 
ITBLPTR 
KPNTR = 
JPNTR = 1 
DO 5 1=1»60»2 

[Е (МХУ (Г) +МХУ (1+2) ) 5,6,›5 

CONTINUE 

ITBLPTR = 1-8 

ISENS = 25 

ISENS IS OUTPUT SENSITIVITY IN INPUT UNITS/MILLIAMETER 
IVMAX=20000 

IVMAX 15 MAXIMUM INPUT VOLTAGE IN MILLIVOLTS 

КТ = IDELTAD*VMAX* ISENS/(ID*CHANGE IN NXY) 

ОО 11 I=1,1I TBLPTR»4 

IDELX * NXYCI*^)-NXYUCI) 


70 


101 


190 


11 


12 


13 


131 


E 
133 


32 
45 
44 


ОБ НЕНА R Y ( 116) )=NXY(I+o) 
ISQUARE = IDELX**2+IDELY**2 
ITEMP(I*4)21] SQUARE /2 

DO 101 J=1»20 

ІМТ1=1 Ѕ5ОЈАКЕ- ІТЕМР (1+4 ) є%2 
INT2-2*ITEMP(I-*4) 
ICORRECT=INTI/INT2 
ITEMP(1+4)=ITEMP(1+4)+ICORRECT+2*( INT 1-ICORRECT*INT2)/INT2 
IT = IT +ITEMP(I+4) 

ID = IT 

ITEMP(1+4) =IT 

IF (IFLAG) 1009113100 
ITEMP(I+6)=ITEMP(I+4) 
CONTINUE 

IVAR = 1 

IF (IFLAG)12 5135612 

ITBLPTR = ITBLPTR + 2 

IVAR = 3 

NOW TO COMPUTE IR NEG AND IR POS 
DO 41 I=IVAR» ITBLPTR»4 

ГТЕМР ] =МХУ ( 1+4) -МХУ( Г) 

ВОТ ТЕР 1311325 15% 


SINFLAG = -1 

ITEMP1 =ITEMPIXSINFLAG 

SO TO 133 

SINFLAG =1 

IRT2 * (ITEMPCITA4)-ITEMPCI))*IVMAX*ISENS/(ID*999999) 
ЇР({1ТТЕМР1-1КТ2)32,32,›14 

IRT2 - (ITEMP(I*T4)-ITEMPCI))*IVMAX*ISENS/CIDX(ONXY CI 4) -CNXYCI))0) 
GO TO 45 


IRT2=999999*SINFLAG 
ІҒ(І-ІУАК)33,24» 33 

Jal = ERT? 

GO TO 37 

JPNTR IS INDEX FOR POS QUANTITIES 
KPPTR IS INDEX FOR NEG QUANTITIES 


(el 


23 
34 
331 
252 
35 
36 
3% 


38 


39 


40 
41 


806 


802 
803 
50 


IRD * IRT1-IRT2 
ІЕ(ІКО) 3493319331 
SINFLAG=-1 
IRD=IRD*SINFLAG 

60 TOT952 

SINFLAG=1 

IRT = IRT2*IRT1⁄/999999 
IF (IRD-IRT) 35935936 
IRT = 999999*SINFLAG 


GO TO 37 
IRT = IRT2Ə*IRT1/(IRT1-IRT2) 
IRT = IRT - ((IRT*ITEMP(I))/ID) 


IFCIRT)38»39,39 

MAKE TABLES OD POSITIVE AND NEGATIVE VOLTAGES 
IRNEG( JPNTR) 2- IRT 

IVNEG(JPNTR) =IVMAX*ITEMP(I)/ID +IV 
JPNTR = JPNTR + 2 

GO TO 46 

IRPOS(KPNTR) = IRT 

IVPOS (KPNTR)=IVMAX*ITEMP(I)/ID+IV 
KPNTR = KPNTR + 2 

IRT1 = IRT2 

CONTINUE 

JPNTR = JPNTR - 2 

KPNTR = KPNTR - 2 

DO 50 Jz1»5»KPNTR»2 

I1:IVMAX* IRPOS(J)/CIVMAX-IVPOS(J)) 
I2: IVMAX*IRPOS(J)/IVPOS(J) 
ІЕ(1УРО5(Ј) ) 806 5806» 802 

12-999999 

GO TO 803 

[2=12-60 

IRPOS(J)=I1 

IVPOS(J)=I2 

рО 51 J=1»JPNTR>»2 
[1=IVMAX*IRNEG(J)/(IVMAX-IVNEG(J)) 


72 


I22 IVMAX* IRNEGCJ)/CIVNEGCJ) ) 
IF(IVNEG(J))60696069102 
006 122999999 
GO TO 601 
102 12 = 12-60 
5ОТ ІКМЕСІ.УУЕТІ 
ol ТУМЕСЊЈ увија 
IF (IFLAG)700s700s701 
790 PRINT 702 
GO ТО 794 
701 РКІМТ 703 
702 FORMAT(1H1s12Xs47HTHESE ARE THE X FUNCTION GENERATOR POT SETTINGS) 
793 FORMAT(///12X»47HTHESE ARE THE Y FUNCTION GENERATOR POT SETTINGS) 
704 PRINT 52>»(IRNEG(1I)>»IVNEG(I)>»I=1>JPNTR>2) 
52 FORMAT(//(22X»6HRNEG1=>1696X>6HRNEG2=>16)) 
2590. PRINT 53$*tIRPOSCI)SVPOSUI):ISISKPNTR»2) 
53 FORMAT (//(22X96HRPOS1=91696X s6HRPOS2=9 16) ) 


END 
END 
FINIS 
1 1 0 301 190 301 240 
25 240 190 J O 140 0 140 
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TES, 


THE SE 


А iC T 


Mas 


ТН. Хх ГОРЕ МУ 
rd 1-173652 
DW. |40 
хр] = р 
nr |= ue 
КА] = 1512 
ppp = ^65 
Ты Y O aie 
„ы, | = 5 бе 
PREGl= 789 
<, = К . 3 
MA Sls — ^65 
Ра ] = Гро 
Py Ла 2200€ 


sa Vidas 


POMERAT PIT ie PT Panes 


16 62= 3997994 
н 41652 = 147 
Vii Ge ^Y: 
"ЧЕ? = 2/8 
Р МЕСО = 4 65 
4P0S2z Lons 


ӘЧЕС2- 1:39 
вме б2= 941 
REG? = 1 85 
29152=999% )9 
59(152 = 743 
RPOS2= 16" 
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PON Sel TI» 


0100 
0101 
0102 
0103 
СШ 
0105 
0106 
ОШ 
0110 
Ола 
0112 
0113 
С 
С 1805 
Об 


0100 consol 
7500 wait 


TOKO 
7600 
0201 
6404 
(200 
7120 
7609 
0217 
4205 
2200 
7000 
1602 
4201 
0000 
0000 


APPENDIX II 


ASSEMBLY LANGUAGE PROGRAM FOR THE DESIGN 
OF SYMBOLS, INCLUDING GRAPHICAL DISPLAY 


code 


Org 
exf 


ina 
lpn 
ZJO 
exf 
ina 
lpn 


stf 
los 


scf 
stf 


end 


100 
7040 


1 
wait 


TARO 


ИГ 
соде 


7000 
соде 
1 
О 


Oh 


С. 


ID 


75 


console control rtne 
select status dd65 


was keybboard 2 hit 
if not go wait 


sel input from keyboard 2 


jump to appropriate driver 


4100 
OIL 
“192 
oE) 
2155 
2106 
0197 
ШШ) 
4111 
„112 
9115 
2115 
21145 


0100 
01C1 
7041 
7900 
Тоњо 
7600 
0201 
6002 
7044 
2600 
1750 
4077 
5477 
6501 
6415 


PAN 
M 


дон 
9277 
0000 


tb 


delay 


consol 
trkbal 


centr 


Org 
pta 
Әрі 
ext 


ina 


2ДЇ 
Әрі 
lef 


sta 
aod 
nzb 
Z jb 
equ 
equ 
equ 
end 


trackball driver routine 
IA 


100 
trkbal 


7040 select dd65 status 
1 ES was keyboard 2 hit 
delay if not go delay 
consol 


1750 

cntr 

cntr < 
1 

tb 

цц 

41 

m 
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0100 
0101 
0102 
C105 
0104 
C105 
0106 
ОТ 
0110 
A! 
0112 
0115 
0114 
0115 
0116 
CET 
0120 
0121 
0122 
0125 
0124 
0125 
0126 
0127 
0150 
0131 
0132 
0155 
0134 


0100 trkbal 


0602 
1233 
1500 
7102 
7600 
0702 
4010 
1900 
7104 
7600 
0704 
1911 
ОҢОО 
4012 
2200 
5000 
5015 
2200 
1776 
4014 
0460 
4015 
2200 
4677 
4.060 
0101 
7043 
7101 
0000 
0010 
0011 
0012 
0013 
0014 
0015 
0043 
0000 


link 
x 


J 


tubvec 


size 
m 
loc 


print 


org 
adn 
stf 
exf 


ina 
sbn 
std 
exf 


ina 
sbn 
std 
ldn 
Std 
laf 


std 
705 


sta 


std 
laf 


std 
pta 
Jp 
Үр 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
end 


2a read trackball coordinates and 
x correct for offset 


tubvec set up arguments for print 


4000 
size 


1776 19 


m 
60 
loc 
4677 code for letter o 
60 

print 

I 


10 
a 
12 
13 
14 
12 
45 


77 


C173 
9174 
0175 
0176 
оттү 
0200 
0221 
0202 
0295 
c2ch 
0205 
C206 
N207 
C210 
C211 
2212 


cena 
2215 
0215 
2217 
C220 
n221 
n222 
0225 
2225 
2225 
7226 
n227 
2230 
0251 
9252 
“255 
C234 
с285 
0236 
E n 
Јане 
7251 
n242 
Спр 
call 
7215 
aus 
c247 
2950 
0251 
C252 
пар 


0175 
0620 
4262 
2035 
6117 
2243 
4036 
2263 
4035 
2200 
7400 
4075 
2200 
2020 
4175 
5475 
1600 
7477 
6506 
euo 
7041 
2010 
4135 
9110 
6204 
2241 
1410 
4135 
5455 
2455 
2011 
4135 
ОС 
6204 
2230 
me 
4155 
5435 
5435 
2620 
1000 
4976 
7590 
7020 
vim 
5476 
6502 
2200 
7004 
1435 


drw 


blank 


oldhat 


setfil 


org 
adn 
stf 
јада 


Ju 
std 


std 
laf 


std 
wer 


otn 
aod 
nzb 
TU 


sed 


175 

20 

аге, 
tbipt 
oldhat 
setfil 
eofpt 
neg 
tblpt 


store link address 





7400 
temp 


2020 С 
temp 
temp 


7477 
blank 


trkbal D 
x 
tblpt 


L 


пер; 


х 
tblpt 
DES 
tblpt g move table pointer to y 
y 

tbipt 


L. 


пег 


Di 

tblpt 
vblpt 
tolpt 


x and y ave entered in 
pointer set fomeendeof tsble 


14009 
СИЕ 


1029 


сит 
2 4465 is erased 


7208 
tblpt 
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254 6007 zjf exit |G exit if first teble entry 
0855 0101 púa 


0256 0000 are | H 
0257 2035 Шад XSplpt 
0260 6003 zit exit 
C261 0101 pta 
0262 7046 ігі ds |Қ 
0265 7021 exit ШЕ о. ] 
0264 7000 neg 7000 

0010 x eau 10 

oon, y equ 11 

CCl? tubvec Gegu 22 

GET tb ера e 

0046 dis eu 49 


0035 tblpt equ 35 
0056 eofpt equ 36 
O0hl  trkbs1 equ Hl 
076 entr equ 76 


0272 temp өші 715 
0025. loc equ 15 
со end | 


T3 


0257 
0260 
0261 
0262 
0265 


0265 
0266 
0267 
0270 
0271 
0272 
0215 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0505 
0505 
0506 
0507 
0510 
OS 
0312 
0515 
0314 
0249 
0516 
0517 
0520 
0521 
0322 
0323 
0524 
0525 
0526 
0327 
0330 
0351 
0332 
0255 
0334 
0555 


0257 _Штеј 


0602 
4062 
5436 
0510 
2522 
1035 
2155 
5010 
1200 
Om 
1156 
5436 
5435 
5435 
2155 
5041 
1200 
0777 
1236 
0502 
5036 
5435 
5435 
2155 
4070 
5435 
5435 
2105 
HOW] 
5435 
5435 
2200 
2000 
4136 
0403 
5036 
2410 
3670 
4066 
6206 
2166 
5066 
9404 
4077 
6103 
ОҢОО 
4077 


org 


std 
aod 
lcn 
add 
std 
lai 
гђа 
Ірі 


sti 
аоа 


aod 
lai 
std 
lpf 


sti 
Теп 
гад 
аоа 
aod 
181 
std 
aod 
aod 
lai 
std 


aod 
ЕСЕ 


sti 
lan 
rad 
led 
add 
std 
pjf 
Jed 
std 


std 
ПРЕ 


std 


ОРО УЦИ 


соде 


ON H F 


ісоде 


tubvec set for left tube 


oh12 
pum; 
5414 


2411 
5071. 
1067 
6206 
2407 
4067 
0406 
1076 
6105 
c4o2 
4076 
ЭС 
CM 
C110 
9103 
1075 
0353 
6105 
ОТ 
6105 
Col 
9075 
2061 
1200 
0778 
0105 
0472 
4067 
2066 
1200 
0774 
0105 
0103 
C111 
4066 
3067 
6103 
1035 
6034 
2066 
3467 
6206 
2066 
4074 
2067 
4073 


Leg 
ada 
sta 
pif 
led 
std 
98, 
sta 


ldn 


sta 
add 


183 
182 
гђа 
5сп 


lag 
nez 
lan 
гас 
bag 
TP 


ls2 
ls2 
180 
sid 
198 


m ЗА 


түт 


152 
152 
156 
sta 
ада 
mel 
sta 
Zur 
lie 
sb 
pjs 
Eda 
std 
ld* 
Sta 


noone 
Dr 


jcode 


PO XN 


jcode 
COS 


circe late 11 


774 chop off bottom two bits 


circulate 10 
b b now no. of y vectors 


774 F chop off bottom two bits 
circulate 10 

2. 2 now no. of x vectors 

9 

5 


tblpt 
exitl LG exit if input zero 


б) ONCE! 


nrshrt| M x has least vectors 
b 


nrlong y has most vectors 


81 


ӘНДЕ 
0416 
0417 
0420 
021. 
022 
0425 
0421 
0h25 
0h26 
0527 
0430 
0431 
0432 
0433 
V 
0455 
2456 
C437 
OLLO 
c441 
ohh 
045 


045 
chh6 
0447 
0452 
0451 
2452 
0455 

1.55 
( Yi 50 


ch57 


6460 
561. 
c462 
2465 
0464 
0465 
0466 
CL67 
0470 
0471 
C472 
0473 
Ol Tl 
0475 
0476 


6107 
2071 
LOTO 
2067 
4074 
2066 
4073 
2475 
LOTT 
2074 
4072 
olo 
4071 
2071 
6101 
2200 
(100 
4136 
5436 
6147 
6046 
оноо 
4066 
2075 
3472 
3472 
6210 
2015 
4265 
2075 
5475 
227 
e Wo 
6195 
Dm 
4065 
2074 
5072 
2877 
6102 
1071. 
2065 
1471 
4065 
2466 
4066 
6107 
2065 
1463 
4136 


return 


exitl 
clear 


testlr 


na 
läd 
std 
lad 


std 


144 
std 
led 
std 
lad 
std 


std 
ldd 


108 


Sti 
aod 


ZU 


les 


làd 
scd 
sti 


1 


icode 
mostly 


D 


nrshrt J 


a 


nrlong 
 nrlong 
limit 

nrshrt 
switch 


ho 


invert 
incbit 
clear 


{TOO 


cofpt 
eofpt 


exit 
exit 
О 
lr 


nrlong 
switch 
Switch 


10 


iboti 


MOVE 


nrshit 
nrlong 
SYI COF. 


: 


mostly 


MOVE 


nrshrt 
switch 
limit 





note mostly equals jcode 

line inclined less than 45 degrees 
to x axis 

y has least vectors 


x has most vectors 


limit equals -no. of most vectors 


ІК 


Store 770C at end of file 
L 


set lr for right 


test to determine code for 
next vector 


|м 45 degree veator chosen 


p 


© e vector from mostly chosen 


check off one vector from limit 


2 
intbit | R limit reached 


move 


intbit 


move 
I 
Ir 
left 
move 
buf 


eofpt 


82 





form vector code 


E 


T 


assembleone word 


СЕТТ 
0500 
0501 
0502 
0505 
C504 
0505 
0500 
0507 


5456 
6546 
6447 
2065 
CI 
4063 
6441 
6552 
7062 
0077 
0076 
0075 
0078 
0012 
0076 
0077 
0072 
0071. 
0066 
0267 
0066 
0065 
0065 
COÓ2 
OO10 
OOTO 
coli 
0071 
0036 
0035 
0015 
0012 
0000 


left 


exit 
icode 
ісоде 
iboth 
nrshrt 
nrlong 
mostly 
My 
switch 
intbit 
a 

b 

d 
move 
buf 


tubvec 


aod 


ldd 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
end 


eof pt 


return 
return 


move 


85 


temporarily store left half word 


0516 
0602 
1007 
ОҢОО 
4072 
4070 
4065 
2012 
3243 
hohl, 
2C10 
12h] 
1415 
4067 
2014 
4065 
2011 
1255 
1655 


6106 
0505 
4074 
0507 
4075 
6105 
0502 
4o74 
0502 
4075 
Ol00 
4971 
2070 
6005 
ОШОО 
6067 
2065 
6050 
0576 
6007 
5463 
6125 
6025 


print 


string 


short 


clear 


org 
adn 
std 
Ldn 


sta 


std 
std 
14а 
adf 
Set 
Lad. 
ірі 
scd 
std 
уда 
5% 

хаа 
1рї 
sci 
std 
net 
1сп 
std 
len 
std 
nzf 
len 
std 
len 
гђа 
làn 
std 
ldd 
ZU 
lan 
Zt 
143 
24 
sen 
ТЕ 


nzf 
206г 


516 


2 | A clear 16C upper lower half ind 


T 


set linkage 

clear 160 upper lower half ind 
end message flag 

and 

clear multiple vector flag 
load tube vector argument 


generate designator bits 
b coordinate 

mask right 9 bits 

merge size argument bits 
hold for output 

dd65 memory address 
hold for output 

y coordinate 

merge desig bits 

go add 2 characters 

set to count 12 bit word 


set to count 6 bit byts 
unconditional jump 


short two char seq. for desig w 
cleer dd65 left right indicator 
read next character routine 
fill blank if flag set 


check if mult vector flag set 
chek if flag being set 


flag is set 


unconditional jump 


0570 
0571 
0572 
0573 
0574 
0579 
0576 
0977 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0615 
OGIL 
0515 
0616 
0217 
520 
(5211 
ВЕР 
0625 
062k 
0€25 
9626 
0627 
0650 
0651 
0652 
0655 
0634 
0635 
0636 
0657 
O640 
0641 
0642 
0643 


0645 


1000 
0777 
0000 
2072 
6310 
2115 


ЕТТІ 
4065 
0565 
4065 
6107 
2115 
јен 
4063 
2h65 
4065 
5415 
2115 
4077 
2063 
6103 
2472 
1972 
2272 
АТС 
2071 
0111 
НОТ 
107 
6006 
6552 
6h66 
2065 
6102 
5415 
ге 
0277 
LOTT 
0376 
6104 
297 
4065 
6566 
2077 
0377 


lthous 


desig 
go 


normal 


YT 
jump 
lower 


maskoz 


tstend 


lad 
nif 
lai 
1s6 
Трп 
std 
"cn 
std 
nof 
lai 
lpn 
sta 
Te 
sta 
аоа 
a: 
std 
lad 


led 
sta 
Ice 
© Г 
lod 
156 
std 
DOE 
ZIEL 
nzb 
2410 
са 
па 
aod 
1аа 
lpn 
std 
5сп 


1dd 
sta 
nzb 
аа 
5сп 


1000 


ut 
lover 


temp 


хело 


meskof 
maskof 


rmx 


string 


nflag 


maskof 


loc 
temp 


tstend 


temp 


nfleg | P 


mx 
temp 
TT 


8b 





M 


N 


О 


set flag routine 


pick up pair of characters 


cnanse upper lower indicator 


circulate 6 places 


uncond. jump to maskof right 6 


loc unchanged for multi vector 
increment 160 memory loc. 


test for multi vector 


0646 
c647 
0650 
0651 
0652 
0653 
c654 
C655 
20656 
2657 
0660 
7661 
1662 
0665 
c664 
0665 
2666 
0667 
0670 
0671 
0672 
0673 
0674 
0675 
0675 
0677 
0700 
0701 
0702 
0703 
07094 
0725 
0706 
0707 
таа 


6104 
4077 
0500 
4070 
2471 
4071 
6116 
2474 
pao 
4073 
2077 
1476 
4173 
51:74 
6111 
2012 


4077 
6616 

ШІ 
2077 


1076 
5475 


0402 
5014 
7506 
(0065 
0070 
207C 
6455 
7007 
7020 
0064 
2077 
0076 
0075 
0074 
0073 
0072 
0071 
0070 


term 


contin 


left 


cycle 


update 
outbuf 
temp 
buf 
bytetr 
wrdctr 
index 
ul 

ТГ 
flag 


nz f 
Sud 
dem 
Sta 


lcd - 


std 


12,1 
Led 


std 
lad 
sed 
sti 
aod 
nzr 
ldd 
156 
std 
рор 
njb 
laa 
1s6 
std 
aod 
nzb 


rad 
exi 
Ош 


а 
220 
ӛрі 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


contin 
temp 


flag 
ir 

ir 
left 
wrdctr 
outbuf 
index 
temp 
buf 
index 
wrdctr 
Cycle 


sense TT code 


| Q 


IR change Ir indicator 


count outbuf backwards 
form indexer 


pack output word 


loop till seventh 


tubvec ' 


temp 
contin 
contin 


temp 


buf 
bytetr 


86 


2 
merge tubvec bits 


yy circulate 6 





| V 


0067 
0066 
0065 
0064 
0063 
0010 
0011 
0012 
0015 
0014 
0015 
0000 


equ 
equ 
equ 
equ 


equ 


equ 
equ 
equ 
equ 
equ 
equ 
end 


87 


erase 


setfil 


Clear 


loop 


std 


sti 
aoo 
sed 


181 
std 
aog 
lai 
std 
152 
Jr 


std 
aod 
Tea 
std 
155 
156 
lpn 
Scd 


displays the file 


O 
пак | 
ИК А 
setfil 
temp 


1020 6 


temp 
2 


m 


Hcc 


eofpt (С. 


ехіз 


5600 
psnpt 
temp 
temp D 
temp 

loc 
clear 
Joc 
tubvec 

а © Е 
Ше 


ur 
-^ 


clear the pcsition table 


T(CO 

temp 

100 

TOC 

y F x,tubvec and y args now in print 


ШІ 
temp 


88 


4157 
a 
2015 
0702 


~ > Š 


5437 
5415 
(2102 
1055 


1436 
6553 
TOI 
ОООО 
0057 
0076 
0015 
0014 
0012 
С010 
0011. 
0043 
0056 
0000 


exit 
link 
psnpt 
temp 
loc 
m 
tubvec 
x 

у 
Brint 
eofpt 


sti 
aol 
Lae 
SO 
aod 
aod 
pta 
jpi 
aod 
15а 


jfi 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
end 


nsnpt xy now in position table 
nsipt 
102 F record starts two before y 


Кык 
БЕП» position wable centains address 
psnpt of start record 

l ° ° Ф 
1ос loc set for beginning of string 


print | © 
Toc 

eofpt | H 
loop 
link 





b 
16 
15 
14 
12 
10 
11 
43 
35 


YON 


м E BT т 
Е ог 
V PF гл ЛО 2-1 


Dur 
+. 


=” 


ғ” 


ее STR NN NE 
> 22 ` = 2 > E ) > 
ее. = 


-—] XN 


ja 
E^ 
5 


T0 
1102 
113 
1204 
1105 
1106 
1109€ 
O 
1111 
1112 


114 
1115 
1116 
1117 
Пе, 
1121 
1125 
1124 
1126 
1127 
115. 


Е 5с 
0101 
7041 
ohoo 
4060 
4136 
5436 
2010 
4156 
5:50 
2011 
Кз, 
7500 
тою 
7070 
0206 
6404 
4061 
020k 
614€ 
2061 
0202 
6412 
7500 
7140 
7600 
11062 
2560 
4960 
6214 
5436 
2062 
1. 
0520 
4156 
54536 
2216 
4156 
5456 
э 
6011 
2136 
d38c 
1462 
4136 
5436 
2204 
4136 
5436 
7900 


enter 


wait 


store 


lower 


des 


Org 
pta 
әрі 
lan 
ste 
sti 


rad 


m 
ET 


EXT 


ana 
std 
Tos 
ste 
pif 
aod 
13d 
125 
sen 
sti 
aoa 


Sti 
aou 


291 
lai 
5сп 
зса 
sti 


laf 
sti 
aou 
ext 


1056 


T ы 


2 

aL 
eofnt 
cofvt 
X 
eos L 
eofpt 
y 


routine to enter cneracters from 
ad65 keyboard 1 into a file 
which starts at cell 4000 and 
ends at eofpt stored in cell 36 


enter tubvee code in file 
xs L nto fae 


enter 


enter y inito file 


select dacs contas 
weit until keyboerd 1 or cr hit 
exit if cr nit 


was Keyboard 1 hit 
keyboard 1 was nit 
select input from xeyboard 1 


is tnais upper or lower 
is upper 


put char with eof mark in file 
set enu of file 


go to clear select anu display 
is a lower character 

Clear eof mark from file woru 
add new char to file woru 

put word back into file 


put eof mark into file 


ІШЕДІ 
1992 
Ji 
1154 
1195 
1156 
1157 
nm 
lihl 
1142 
1743 


1145 


11409 
4101 
Tuh6 
„ыбө? 
5136 
қо 
6454 
1555 
PES 
1600 
Choe 
5056 
Fuel 
IDOL 
2961. 
C962 
0046 
13 

әсі 
0056 
NS 
CONG 
сМ 
0000 


neg 


exit 


ul 
соче 
char 
ais 
consol 
trkbal 
eofpt 
ED 

X 


pta 
JBL 
1сп 
rau 
lan 
2 JD 
ext 


ina 


raa 
ірі 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
ena 


Sai 


Clear du65 select 
display file showing new character 
reset file marker for new character 


wait for new character 


exit efter carriage return 


115) 
ВЕ 
11,52 
1155 


1155 
1156 
ТБ 
1166 
1161 
1162 
1165 


1165 
1166 
1167 
TIE 


1159 
0101 
TAL 
Оди) 
2110 
1200 
TTCO 
4976 
2011 
2119 
0111 
C277 了 
1476 
4076 
2200 
3600 
4077 
2177 
1476 
6006 
ОВО? 
SOTT 
1437 
6506 
1221 
5477 
2177 
4.14 
5477 
1437 
6512 
5477 
2177 
4075 
2175 
4114 
5414 
5475 
1436 
6505 
2014 
56 
0121 
7046 
ОШОО 
6425 
COTT 
uu76 
079 


remove 


Search 


exit 
found 


moveup 


last 


posit 


next 


Org 
pta 
JPL 


lea | 


155 
Inf 


sta 
1аа 
182 
136 
lpn 
5са 
std 
VAT 


sta 
тат 
зса 
2 19 
јал 
гаа 
зса 


Әрі 
aod 
1а1 
sta 


зса 
zd 
aod 
ісі 
5%а 
ісі 
sti 


аоа 
seu 
nzb 
laá 
stu 
pta 
әрі 
јал 
2.10 
equ 
equ 
equ 


1150 


trkbal | A 


7199 


T 


xy 


3600 
posit 
posit 


found 


posit 
psnpt 


ос 


search|H 
b 


posit 
posit 
loc 
posit 
psnpt 
last 
posit 
posit 
next 
next 


loc 


next Е 


eofpt 


томемр 


loc 


eofpt 


exit 
a 
76 
12 


G 


92 


removes a string of 
vectors or characters from 
the computer file 

shift x 


mask х 
store X 


shift y 


mask y 
form xy coorüinates 


initialize position table address 
search for a string with same 
xy cooras as trkbal 


exit after removing string or if 
string not found 


put address of file to be removea in loc 


check if this is the last string 


put start of next file in next 


end of rile pt is at loc 


ТГ 
АА 
gun 
ажы 
40521 
JO 
ol 
VOLS 
voll 
21: 
соо 


entr 
dis 
consol 
trkbal 
psnpt 
eor pt 
tb 

x 


y 
loc 


equ 
eyu 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
end 


1+ 
46 


41. 
n 
26 
21 
10 


14 
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1250 
1251 
1252 
1655 
1254 
255 
1256 
11297 
1200 
1261 
1262 
1255 
254 
1205 
1266 
1257 
1270 
1271 
1272 
1212 
1271, 
1275 
1276 
1277 
1500 
1501 
1322 
1505 
1505 
1505 
1506 
1507 
1510 
TOME 
1512 
136 
1516 
1235 
1516 
1 17 
1520 
1521 
1522 
1525 
1525 
222 
1526 
TET 
1550 


1250 -comput ова 


0504 
2025 
ОҢОО 
4012 
4013 
2200 
7000 
4050 
0602 
4052 
0602 
4054 
0602 
1056 
2200 
(300 
4015 
OHOO 
115 
5415 
0400 
4115 
0403 
5015 
2200 
0400 
1002 
ОҢОО 
5061 
4065 
2011 
2550 
3154 
4069 
6205 
2561 
4061 
2552 
2150 
4062 
6205 
2163 
1063 
QSL 
TRS 
0051 
0060 
0060 
0060 


барје 


addr 


loop 


1сп 
гад 
Tom 
std 
std 
lg 


std 
adn 
std 
аап 
sta 
adn 
sta 
Jo 


sta 
làn 
sti 
aod 
Tan 
sti 
lan 
rac 
Je 


Std 
ДҮҮ 
sta 
std 
std 
Te: 
adi 
sta 
pjf 
led 
std 
Tei 
adi 
std 
pur 
led 
sta 
pta 
әрі 


1250 
h 


tblpt 
E 


dist 


updis 


(000 


index А 


2 


index2 


2 


index4 


2 


— 


іпдех 


1500 
%0% 
Q 
ору 
tpt 
Q 
%р% 
2 


%р% 


LOO 
ушах 


DUAL 
bu£5 
umin 


index 
іпдеуі 


deix 
de 
2 


bufl 
bufl 


index? 
index6 


dely 
2 

buf^ 
buf3 


erith 


51 

дејх 
дејх 
дејх 





р 


94 


computes resistance,bias voltage 
values 


index is table index 


all indices are now set 


form delta x 


convert to 22 bit arith format 


form delta y 


converbtto 220 bit arith format 


delta x is now squared 


0031 
0062 
0062 
0062 
0001, 
0060 
0062 
0060 
0400 
6005 
0000 
6541 
ОЛО 
7947 
0101 
7049 
0021 
2215 
2012 
0012 
2012 
4115 
5415 
2013 
#175 
онон 
2050 
on 
0207 
6504 
0505 
2015 
0510 
вт 
2050 
1435 
6531 
2250 
7000 
4051 
2736 
4337 
6105 
0102 
5051 
0502 
2055 
Зат 
2250 


xyflag 


loopl 
POOL 


am 
instl 


Өл 


ldan 
zi 


nzb 
pta 
өрі 
р%2. 
әрі 


TAG 
sti 
aod 
lad 
sti 
lan 
Dac. 
200 
lpn 


ab 


ací 


aL 
dely 
dely 
dely 
l 
вех 
деју 


Square 


О 
FOO 


loop 
sroot 


arith 
J 

tpt 
dist 
aıst 
с ср 
%р% 
opt 
updis 
орі 

5 
index 
instl 
Т 

imi 

2 

tpt 
IC 
instl 
index 
tolpe 
loopl 


1000 


index] 
xyflag 
xyflag 


ехх 
2 


јпдех] 


2 

по једе 
tad 
hund 


95 


D 


E 


E 


H 


J 
K 
L 


delta y is now squared 


form sum of squares 


root goes to tpt location 


distance is olu distance plus 
Square root sqare 
tpt becomes the present distance 


transferred top half word 
now to increase indices 


check if all indices are increased 
tpt now increased by four 

instil now reset 

check if index at end of table 


finished dist time computations 
setissor finst x 


is a y calculation 
set for first y 


set for last y 
tablpt set for last x 
if amex calculation 


J412 
1413 
141b 
2.15 
1516 
Т 
1520 
1421 
1122 
1525 
11424 
1425 
1525 
1427 
1450 
1131 
1432 
1433 
143); 
1435 
1536 
1457 
1440 
1441 
1442 
1443 
1444 
1445 
14145 
1447 
1450 
1451 
1452 
1555 
1454 
155 
1556 
1457 
1460 
1461 
1h62 
1465 
1464 
1465 
1466 
1467 
1470 
1871 
1472 
1473 
1474 
11:75 
1276 
1477 


4057 
5226 
4053 
3224 
4055 
ОНО! 
2051 
1050 
6102 
0777 
2201 
000 
0400 
5001 
4905 
4067 
4011 
2551 
3150 
Look 
6304 
0401 
6207 
0100 
2404 
Look 
0520 
1067 
0501 
4066 
2507 
4010 
2200 
ZU T 
016 
0403 
4017 
2015 
0704 
1027 
2004 
6021 
0101 
7020 
0101 
7040 
0002 
0016 
0064 
0004 
0002 
0064 
0010 
0000 


arge 


begin 


hund 
согар 


load 


std 
зат 
Std 
adf 


std - 


add 
std 
naf 


ldb 
std 
làn 
std 
std 


std 
leu 
&di 
Std. 
nac 
len 
Po 


led 
Std 
1сп 
std 
len 
sta 
lib 
stà 
lef 


std 
Jan 
Std 
јада 
sbn 
sta 
ldd 
Za 
pta 
Jpi 


Jpi 


index 
hund 
index? 
hund 
index5 


indexl 
index 
ттт |М 
arge 
sens 


udiff |N 
Dur, 


indexl 
index 
аш Г 
comp 


load 

100 | 
cat f 
Gat | 


But] 


sinflg 
hund 
min 


dtl 
GI 
big 


fixdpt 


aritn 

2 

max |р 
rt2 
testl 

2 

Lie 

min 
test2 
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rpos table index 
rneg table index 


t table index 


index set for second x or y 


clear upper part of double precision 
cells 


forms delta x or delta y 


unconditional jump 


compliment diff to make positive 


sinflag contains the sign of 
delta x or delta y 
this is the minimum r allowed 


this is the maximum 


r allowed 


ans goes to rte 


testl is difference between max r 
and actual r 


teste similar but using min 


4 H pa ha 
мин мл Ми I 
4 - um E 

Euh AU 


A 


ШТІ 
| NJ 


к 
AJI NJ 
CaA 


e © 


一 ~ 


155% 
dp 
MEE 
1255 
1554 


2005 
6213 
6302 
6557 
0101 
TOLO 
0031 

аб 
0066 
0064 
0401 
6220 
2001 
oan] 
Ou 
"ОВО 
0051 
0010 
0066 
0064 
OLOL 
6277 
Giles. 
70409 
0031 
0064 
0066 
0064 
2558. 
зат 
77705 


С 

' [O 
= 
С 


EDO E 
(ME CIN 

> Gy On ty Ce 
ee Spe 


7 
- 


“9 


v P. 
Joi 
\ 


O, 

Ш 

С 
NJ 


5543 
0101 
ТОНО 
Coo) 
9062 
0065 
0060 


inm 


big 


test 


sign 


okay 


over 
realce 


ldd 
рот 
DUI 
nzb 


pta 


Jpi 


ldn 
РОС 
lad 
p 
pta 
4р1. 


ldn 
pof 
pta 
Јрі 


1 
JD 
son 


© 
сї E: Cp 
(=, с, ( "i 


> > tn be) ines 
¢ y 

. J Ga aa 

22. 


ER 
{- 


nzo 


g 
ct 


Jp 


testlu 


test 
big 


begin 


arith 


53i 


max 


sinflg 


re 
dl 
okay 


test2u 


sign 


arin 


22 


тіп 


sinflg 


ГОР 
J 
okay 


arith 


pi 
rye 


check sign of testl 


r is mo big 


R 


unconditional jump 


с test sign of test2 


F 1S veo small 


+ 


unconditional jump 


U 


simile 


rte 


index] 


фо сг 


int 


arith 


Jd 

rial 
Fue 
buf 


P gets Proper siri 
test if this is the first 
computation 


~ ` ae 7% (5 nk ° 


r is €qual to ru 


X 


97 


к 

(XM < 
А. 
Voy VO [2 


—- 


МЕЛ; 


е ^ 


J bes fe fof + ыз 


EE 
ОЗАРА с 
| 


0002 
0062 
0065 
0004 
2004 
6034 
0101 
7040 
0051 
0060 
0008 
0060 
2461 
6310 
061 
0501 
4066 
0500 
1067 


y 
Ol ^n, 


tops 


lad 
2241 
pta 
ӛрі 


іза 
pjf 
To 
sua 


- 


- 
EM “ 


lon 


је r eqals rtl rt2 over rtl minus rt2 
bufl check sig of r 


sintlely r is negative 


ч = ^ 
- ` ~ - «ғ | „з “узул T 
N CO : SIQUIS DOC 


teste have formed limit value test 
testlu numbers 

tay test if r too big 

max r is teo pig 


Ur unconáitlionazi ошар 


© 
tour = = > e -* ~ . š m 4 1 
Eu see > i: 76355 el Lin 


. - — 


store 


98 


102" 
1252 
1020 
1057 
165; 
1651 
1642 
1643 
1644 
1645 
1646 
1647 
1650 
1051. 
1652 
1655 
1654 
1655 
1656 
1657 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1567 
1670 
3573. 
1612 
1575 
1674 
1675 
1576 
1677 
1709 
Jy 1 
1702 
O 

ІЛКІ 
IRS 
170€ 
1707 
1710 
ДЕ 


{2 Qu 
25]3 
0222 
ОЕ 
e» 
4055 
050% 
5010 
6507 
0504 
209 
2466 
1066 
2467 
4067 
0101 
7040 
O031 
0060 
0066 
0055 
2402 
5055 
0121 
7050 
0951 
0002 
0055 
0062 
0041 
0062 
сеје. 
0055 
2 50 
Jet? 
1640 
070 
2955 
5256 
4071 
2140 
ЕТІ 
2010 
4055 
2064 
4062 


Loop) 
тест 


change 


Цеље у 


fin 


std 
рта, 
Ор 


qom 
rad 
pta 
Jpi 


Beg 
lpn 
Sou 
std 
уса 
adr 
sta 
тач 
Sti 
Lad: 
std 
Јаа 
std 


Simi le 
спапее 
direct 
over 
index í 
index? 
EE 
store 
trnafr 
ц 


Е negative Ilas indicates tnat r 


is to be stored in rneg table 


transfer after inhibit index 3 


јпдех 
sinflg 
sinflg FF 
buf 
buf 


arith 

sa! 

Т 

sinflg ed 
index? 

2 

јпдех 5 


аттып 
iod: 
vmax 
index) 
buf2 {HH 
И 
buf? 
dist 
index5 
index 
| 
blank 
temp 
index4 
quart 
templ 
temp 
templ 
store 
index? 
түс 
ror 


transfer rt2 


ЭЭ 


IIO 
М1» 
ІШІҢ 
1785 
1716 
ШТ 
1720 
1721 
1722 
1725 
1725 
1725 
1726 
1727 
1150 
J 1 
1732 
11102 
1755 
17% 
1750 
1 57 
1710 


2065 
4065 
ОНО! 
5059 
5701 
0207 
6504 
0510 
2205 
2051 
1435 
6566 
2100 
1344 
6105 
0502 
5035 
опон 
2052 
7101 
2000 
74.00 
0400 
0000 
0000 
0901 
0002 
000k 
0004 
0005 
0005 
6010 
0010 
0011 
0012 
0015 
0915 
0016 
0017 
0020 
0026 
9027 
0055 


гейо 
359 


exit 


disply 
blank 
quart 
sens 
test2 
test2u 
vmax 
testl 
diff 
uds 
testlu 
min 
store 
Wain 
dist 
upalst 
tpt 


umax 
хар 


а 
tblpt 


165061 
std 
ldn 
rad 
aob 
lpn 
nzb 
Ton 
rab 
laa 
sed 
nzb 
193 


ТІЛІ 
len 
rad 
ldn 
rad 
JT 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


bufo 

buf3 

L 

index 

її JJ 
7 

redo 

10 

їп 

indexl 
tblpt | KK 
loop5 


1344 
exit 
2 


tblpt 
disply 
2000 
74.00 
400 


NN 





100 


u check if x or y calculation 


tout Immit was a y calc 
li 


0087 
0050 
0051. 
0052 
0055 
0054 
0055 
0056 
0057 
0060 
0069 
9060 
0060 
2261 
2262 
CO62 
лар 
0065 
9054 
9064 
0065 
0056 
0066 
0067 
9070 
0071 
9916 
0000 


sroot 
index 
index] 
іпдех2 
index5 
index4 
index5 
index6 
index7 
buf 
дејх 
Square 
Y 

ouil 
buf2 
dely 
rl 
DU > 
buf 
TUO 
LIO 
bufó 
sinflg 
Tout 
кешр 
templ 
2r ih 


equ 
equ 
equ 
equ 
GI 
equ 
equ 
equ 
equ 
equ 
equ 
egu 
Sgu 
egu 
zoll 
Caw 
em 
equ 
eau 
Equ 
Cok 
Sa 
ecu 
eau 
equ 
eu 
eau 
епа 


101 


2450 
2451 
2452 
2455 


2455 
2456 
2457 
2460 
2461 
2462 
24.65 
24.64 
2405 
24.66 
2467 
2470 
2471 
2472 
2475 
2474 
2475 
2476 
2477 
2500 
age. 
2522 
2505 
2504 
2555 
25.6 
2507 
251. 
2511 
2512 
2515 
251% 
2515 


2455 
0500 
4225 
6111 
OL OO 
4.222 
2025 
4100 
7714 
2056 
4100 
THO 
750C 
Toho 
1620 
0202 
6404 
7500 
TAL 
1620 
Loch 
0101 
7030 
DOOC 
0000 
2302 
6014 
2200 
3000 
4015 
2100 
7118 
255 
2100 
TTT9 
4036 
2161 
7046 
То 
әш 
2.6 
uU 
“015 
7256 
2-55 


wh wv 


ra 


Walt 


type 
biock 


exit 
consol 
«is 

rw 
size 
eof pt 
tblpt 


ехх 


ina 
lpn 
210 
exf 


ina 
sti 
pta 
Әрі 


100 
z jf 
laf 


std 
Loi 


std 
183 


sta 
pta 
Әрі 
ӛрі 
equ 
equ 
сац 
equ 
equ 
equ 
епа 


2450 


type 
wait 


type 
tblpt | 8 


177 
cofpt 


TIT 
Тәм, 


walt 


ТЕО 





block 


p ІН 


type 
exit lc 


3000 
size 


177% 
tblpt 


1115 
eofpt 


648 |J 
consol 
Ыы. 

46 

pO 

15 

56 

29 


read/write аг1уег 
read entry point 
set up read code 


write entry point 
set up write code 


select status dd65 


wait until keyboard 1 is hit 
select input from keyboarä 1 
set up block number arg 

jump to read/write routine 
exit after write operation 
set up size arg for print 


recover end of table pointer 


recover eof pointer 
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2555 blank org 2555 Subroutine to add letters bk 
2555 -6602 ain 2 in blank table to indicate 
2556 ` 4214 stf link blanking required 
2999820355 ldd біре А link made 
2560 95215 aof quart 
2561 0704 зрп 4 addresses in blank table 
2562 4077 std temp go to temporary storage 
2565 2212 loop 1857 letter 
2564 4177 sti temp 
2565 Од lán 2 5 
2566 5077 rad temp 
2567 4605 СГ "Wo ІС 
2570 06605 pjb loop 
2571 7021 jpi tb 
2572 0090 link 
2575 0600 quart 420 
2574 5252 flag 5252 
2515 6242 letter 6242 
0977 temp equ TT 
0055 tblpt equ 55 
0921 tb сд 21 
0000 Ena 


3500 
2001 
2002 
2005 
2004 
2005 
2906 
2001 
2019 
JM 
2012 
eI 
2:1% 
2215 


20 - 


” 
ту 


ка > 


ы ХР қо ЧЕ 


Ра де о Ролл Mint, © 


. ` 


х 
E. 
t 


22 
% 


Po ho no Po № № TO fo F2 TO IO P:fO IO (to Tu Po 
< Uu) “ б. I 
ЕАН <: 


у Z 


pa 


2-1 CANA 


cy Y O Ои: 
ND ND ND SN ND NI SNO MI 
ГТО”. 


C2 


у : 


по бо по Аз ПО ГО ГО ГО 


INN 


~ 


gasply Org 


iue 


trans 


posout 
posend 
mask 
ТСЕ 


ces.in 


len 
sti 
lgi 


std 
stà 
laf 


std 
та 


std 
јел 
sti 
aod 
аса 
sed 
11215 
Boc 
РОБ 
nob 


20d 
ie 
sch 
sta 
ТО 


16% 


lai 
std 


2000 
dl 
flag 


5100 
ouo? 


temp la 


5115 

end 

file 
4000 
eofpt 
"pH 
eofpt 
eofpt 
temp B 
епс. 
trans 
flag 
pos 
Interim 
2290 
5217 


SES F 
P 


€ 


flag 
end 


134 
contin! D 


3020 
temp 
posout 
Guclin 
posend 
end 
end 


converts resistance and bias voltage 
values to pot settings and makes up 
the dispay code for he file 

flag indicates whether info transfer 
is outline,pos or negative component 
code transfer 


end contains the end of file being 
transferred 


eofpt set at start of display file 
transfer one block of code 


one block hes been transferred 


indices set for data tables 


load xyflag,determine if x or y calc 


signifies a y calc 


x € x is ones complement of first x 
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[o 
1—2 
Г» 


ғұ" 
212 


= ол Е x 


C EC МЕТІ) 
tj- pHo f- 


UN (WTI 


f 
M 


pos 


four 


transl 


twice 


TIO 


outacr 


lpb 
std 
aO 
TAE. 
бса 
МЖ 
141 
std 
1аа 
SUI 
aod 
ldb 
155 
stb 
pjb 
YR 
naD 
pta 
рї 


о ғ 
Ne 
5 р 


c fh D 
б. © 


Rd + 
Í 


P 
: 


id He 


е 


» 


с.к} (т ап од kE: 


IJ CH e 


¡e 


mask 

ехх 

епа 
pospt 
rpos 
Skip G 
end 
addrss 
exx 
addrss 
end rt 
file 


mask x to form dd65 code 


arith compute pot settings 
2i 

rpos 

уле 

temp 

p 


ме 
“РОВ 
tempe 
ш 
керо 
tempe 
tempe 
41 3 
temp 
OS 
temp 


utemp make temp very large 


Сур ел a x 
= 


А | 


остао 
temp 


- 


JL 


position of pos components in disply 


23h 

„111 
Sy 
2145 
219 
2145 
2145 
21.7 
cl 
Ao. 
4152 


ы == 


о 
no 
AUN 


UC 


NO ro fo 
C Xm) 


[Ə [XV uO Tee Po hock 
MO fo mn 
о 
H ON 


fo 
no 
pa 
Гә 


221% 
221% 
2215 
2210 
2217 
2227 


0000 
2001 
1027 
2000 
1026 
2406 
206 
5516 
2095 
0567 
5552 
B 
255b 
150 


| ~ = 


pou 
D» 
3200 


| ~ ~ 
SN A ee 


2025 


22 
2152 
fo 
2125 
4170 
5452 
2406 
LOOO 
ӘБІШ 
DN 
5052 
OL: 
2955 
Juch 
5051 
3055 
4026 
6532 
5556 
0501 
6002 
6124 
2221 
1052 
2216 
1952 
2152 
105 
1211 
015 


outadr 


posi 
trans? 
iore 


duo 


skip 


neg 


јад 
std 
ldd 
std 
Ted 
std 
nzb 
236 
nzb 
nzo 
làn 
rad 
ipf 
Sta 
M 
adr 


er 


Трг 
Sta 


utemp2 
utemp 
temp2 
temp 4 
CUTE 
entr 
two 
more 
pos 
transl 
ta 


waskl 
~ 


< — 


vpos 


LOC 
педвет 
temp L 
eli. 

&dàrss 
venp 
aalrss 

end 

СЕ 

CALI] 

сас 

11 

епа 

| 

Vpos 

+ М 
rpos 
oublın 
terp 
trans2 
flag 

ü N 
neg 

exit 
negend 
ena 
negout 
ОЕ 
епс. 

x 
maskl 
ехх 


© 


| P 


106 


Quim 2095 јад negpt 





2^ 4057 sti pospt |P 
2225 22300 1а? 

зорі» 7200 1290 
wae5 1951 sti гроз 
mao. 0902 adn _ 0 

omer 4055 544 уров 
2950 6550 nzb «eel 
ven, 2299 nezout 5260 
2252 3347 negend 355 
Зе ОРГ maskl 15480 

222 we exit pta 

285 тош ірі trkbail@ 
ЛО 0101 pta 

22%, 7056 ірі dis 

гак. 7021 jg wb 


0036 eofpt equ 36 
0090, ош ји eg 50 
0051 rpos equ 51 
0052 end equi. De 
9054 x equ 5% 
0052 Vpos equ 25 
0056 flag equ 56 
оошо exx equ 15 
0006" temp2 equ 0 


0201 utemp2 equ Ме 

0006 entr equ С 

0076 addrss eu 76 
0957 pospt equ 37 
0053 negpt equ 95 
0026 temp eu 25 
0027 Veh equ 21 
0046 dis equ 46 
0021 tb еса 21 
20b] trkbal eu 4 
0040 arith egu і 
0302 умах еса 2 

0045  octdec equ l5 
2COC end 
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2517 
0602 
4076 
0601 
4075 
0601 
4074 
1900 
1161 
251 
4977 
T9C1 
7600 
5477 
6703 
2176 
6006 
7900 
2131 
7210 
1776 
7074 
1200 
2111 
1505 
1716 
7974 
4000 
0077 
0076 
0075 
0074 
0000 


read 


write 


four 
entr 


block 


Org 
std 
sta 


sta 
exf 


lci 
зђа 
exf 
ina, 
aoa 
njb 
151 
z jf 
exf 


inp 


Әрі. 


out 
0р1 


equ 
equ 
equ 
equ 
end 


2511 
а 


type 


block 


link 


1161 | 
block 
entr le 


read 


cntr 
fwa 
type 


write 


21 1 
four 
7776 
link 


2111 
four 
7716 
link 
000 


16 


12 
74 








read/write routine 


A first arg is a code determining 


type of operation-reac or write 
second arg is block mumber 


form return linkage 
rewind to load 


set entr to neg of 
block number 


E 
F pass over blocks 


type equal to zero means write 
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2600 
2001 
2002 
2005 
264 
2605 
2606 
2607 
2510 


2615 
2614 
2615 
2516 
20m 
2620 
2621 
2622 
2625 
2624 
2625 
2626 
2527 
2630 


2652 
2655 
2654 
2635 
2536 
2057 
2640 
2641 
2642 


2643 
2655 


20146 
2647 
2650 
2651 
2552 
2653 


q | 
ju 


SE 
= Y 


2600 
0602 
4061 
0601 
1062 
0601 
1060 
0601 
4004 
0413 
0703 
1265 
2216 
4163 
pice 
54.65 
4611 
6675 
0505 
9307 
0101 
0625 
1257 
6225 
6522 
nn 
1145 
5671 
4520 
0001 
7006 
сола 
сос 
0144 
Оссо 
1750 
0000 
5526 
0002 
3240 
0030 
0000 
2161 
1.661. 
2152 
1002 
2160 


octdec 


limit 


tnree 


in 
£, 


octpl 


ur 


start 


org 


std 


ШЫ 
stå 
qo 
SUC 


ea 


2600 converts octal double precision sequence 
2 to bcd 

adrnos obtain arguments 

jJ. 

numnos A 

№ 

outadr 

18 

tempe 

buf 

3 

burcon 

in load word infin in output buffer 
bufcon 

Limit 

bufcon 8 

three 

limit 

> 


limit 


25 С 
last 
start 
start 
4414 

7145 

0671 

4520 

1 


infin stands for infinity 


® 
Je 

6 
144 
O 
1750 


О 
5h20 
2 
5240 
50 


adrnos 
adrnos 
numnos 
numos E 
Gua 


Store arguments 


1909 


2656 
2657 
2560 
2661 
2662 
2665 
265 
2565 
2666 
2667 
8070 
2571 
2672 
2573 
2074 
2575 
2676 
2577 
2700 
2101 
Dona 
21035 
2704 
2705 
2706 
2707 
2710 
DUE 
2719 
27 
2714 
2715 
Эт 
Qu 
2720 
2721 
2722 

T22 
2724 
2725 
272€ 
2727 
2730 


1060 
2004 
ШОТ 
0505 
hoch 
2200 
0000 
1065 
2151 
4066 
5461 
2161 
1067 
2064 
25915 
4065 
2101 
7249 
0081. 
0066 
0055 
0015 
0051 
0015 
0065 
0016 
0002 
0066 
0016 
0066 
0502 
5065 
2014 
6005 
120 
0712 
6222 
6505 
0h12 
4074 
2756 
4357 
6005 


loopl 


last 


loop 


[fx 


Okay 


1 


50 
јда 
Sti 
len 
5% 


laf 


Sta 
тат 
S 
eod 
каа 
sta 
паа. 
adn 
S63 
pta 


"a. 
и 


len 
rad 
pos 
züf 
1 
son 
pif 
nox 
idn 
sta 
Tor 
stb 
200 


outadr 

temp2 

link 

5 outer loor starts conversion of new word 
Woche 


F 


руг 
sArmos 
nun 
адгпоѕ| 
adrnos 
unum 
ECL 
ju 
puicon 


inner loop divides num by powers of ten 
buffer control set to oresent buffer locetion 


arith 
hj 

num 
pwrlo 
code 

d 

code J 
rwrld 
tempo 

а 


nun 
tempó 
nu 

2 

pwrl0 
code 

fiz К 
mask 

12 It 
output! M 
okay 
12 |N 
code 

ul 

uL |o 


lwr 


if code zero rust alter code 
masx off sien bit-numbers should be positive 
indicates number too large 


enter zero code in code 
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2014 
0111 
1163 
6541 
port 
1565 
11165 
5464 
6746 
C502 
5065 
2155 
1165 
5h65 
54.50 
4011 
[5 
546 

0521 
5062 
6574 
Ec 
0000 
Bi it 
3557 
0015 
0269 
ОСО 
0062 
0065 
2064 
0065 
0066 
0067 
990 
0004 
0014 
CI 
О 


ғғ” 
Urs? 


lwr 


output 


link 
mask 
gycle 
buf 
outaar 
acrnos 
numnos 
bufcon 
MECO 
pwrlö 
num 
unum 
grub 
tempe 
code 
tempo 
Ge 


Lda 
180 
Sti 
nzb 


i^ 
v... 


sei 
SUI 
зод 
njb 
Тер 
ра 
Tel 
sti 
2—00 
aod 
Sr 
njb 
aod 
len 
rad 
nzb 


jet 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
egu 
equ 
end 


code 


bufcon 
loop 
code 
buseon 
pur con 
wrdetr 
loop 

2 
bufcon 
Du Com 
outadr 
bufeon 
ober 
cycle 
output 
adrnos 
1 
numnos 
loopl 
link 


3777 
AN 
17% 
6C 
61 
62 
65 
о; 
65 
56 
67 


MZ 


|Р 
9 


R 
5 


+" check if three words have been transmitted to ni 


output buffer storage so output aicress 


TIY 


3220 
0602 
4006 
oT! 
4055 
ОҢОО 
1065 
4037 
Ohc2 
1036 
1064 
2061 
gochl 
Bonn 
2700 
I^ Gh 
=, 
МОН 
ocal 
ANG 


odd. 


C915 
2058.1. 
TOKO 
C031 


25-2515 


CO15 
2064 
7002 
6050 
9064 
соб 
со 
9064 
0015 
0066 
2066 
6226 
0521 
4064 
7500 
1065 
6505 
0201 
14064 


sroot 


start 


root 


pos 


pta 
ups 


dct 
pjf 
len 
Sua 
len 
std 
Der 
lpn 
std 


usqare 
Smelt 


anno 
bufk 


= Teo 
"qul 


iy 


|D 


finds square root of nos, of range 


„| 1 to 4,000,000 octal 


make link 


bound number of iterations 


с 


check if square greater than 5777 


E 


SGUATE F 


үлгі 
tpt 


arsch 


a 
tpt 
vpt 
bufh 


zw 
— 


Square 


рит 
buf4 
41 
bufh 
tpt 
buf6 
buf6 
pos 
ЦЕ 
ouf 
О 


ubufl 


scal 
и 
buf 


comte estimated root squared r2 


form square-r2 


G 


form square-rt2 over 2timesr 


buf6 scaled up by two 


H 


obtain round off error 
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0400 
4065 
0101 
7040 
008. 
0066 
0056 
0066 
9001 
0064 
0056 
0066 
2066 
3067 
6011 
0101 
7040 
0001 
0015 
0066 
0015 
5455 
6555 
7006 
0006 
0050 
2015 
соби 
0065 
0060 
0061 
0056 
0037 
0066 
20€7 
965 
5000 


scal 


exit 
link 


arith 


tpt 
bufi 


ubufh 
square 
usqare 


two 
utwo 
buf6 


ubufó 
index5 


lan 
sta 
pta 
S rn 


ea 
add 
Г 
pta 
Jpi 


aon 
nzb 
Jpi 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
eni 


ubufk 


aman 


buf6 
two 
bufó 


bufl 
bufó 
pufé 
buf6 


uburé 


exit 


aue 


||. 
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add round off correction 


sense if correction factor zero 


add correction factor 


check if iteration bound reached 


5100 
2401 
5102 
5105 
3104 
5105 
5106 
5107 
5110 
san 
3112 
3115 
3111 
$115 
5116 
Ar 
3120 
3121 
3122 
21725 
3124 
2125 
5126 
star 
5150 
313 
3132 
5155 
3134 
2155 
5156 
3157 
3140 


5142 
5155 
3144 
5145 


2000 this is the main outlin code 


ОШО 
0210 
7664 
5000 
7700 
2000 
0271 
020 
7650 
5600 
7700 
2000 
0271 
09537 
7664 
5500 
1790 
2000 
OHHO 
0000 
7665 
5051 
ot 
5150 
1256 
5612 
0002 
5600 
1109 
0000 
0757 
0520 
0000 
6561 
11565 
7700 
0081 
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5200 
5201 
5202 
5205 
5204 
5205 
5206 
2201 
5210 
5211 
5212 
3215 
5215 
5215 
5216 
3217 
3220 
3221 
3222 
Doo) 
3224 
gee) 
3226 
2227 
5250 
poor 
2252 
2222 
3234 
pa» 
5256 
225 
3240 
3241 
2242 
5255 
3244 
3245 
3246 
3247 
3290 
DDR 
раје 
5255 
3254 
0229 
5256 
32571 


2000 this is the code for the pos 
0000 outline 


0250 
7605 
5614 
5050 
2225 
1650 
5014 
7605 
5080 
2390 
DIIS 
0556 
T 100 
2000 
OUUU 
0110 
5050 
4255 
ООШ 
5342 
7700 
0000 
0000 
0144 
0000 
0000 
0000 
0000 
T 100 
0000 
OUO 
0064 
OUOU 
000) 
0000 
0000 
17109 
7460 
3201 
3220 
3230 
3240 
3232 
3242 
2255 
3245 
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100 2000 this is the code for the neg 
0000 outline 
DEO 
1605 
5250 
pono 
5012 
1450 
5014 
7605 
5290 
5151 
©з [© 
0552 
1700 
2000 
0000 
0667 
5050 
L657 
2222 
5746 
7100 
0000 
0900 
0655 
0000 
0000 
0000 
0000 
77900 
0000 
0000 
0677 
0000 


ОООО 
0000 
1790 
7460 
2550] 
4520 
5520 
3340) 
2202 
33142 
2295 
3345 
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3400 
se] 
p 
5805 
3404 
3405 
3h06 
3497 
5419 
5811 
ste 
3413 
5414 
5515 
5416 
5417 
3420 
342] 
3422 
3425 
5521, 
3425 
2426 
3427 
559 
3431 
3432 
5522 
3434 
3435 
3430 
3437 
3440 
5551 
5442 
5545 
pu 
255 
3446 
3447 
3450 
3451 
3452 
3453 
3454 
2455 
2456 
3457 
5560 
2461 
262 
3463 


ОООО fixdpt one 


0602 
4006 
OLOO 
1037 
LOLL 
oho2 
1036 
0101 
7040 
0051 
0002 
0000 
0060 
2061 
1212 
6112 
0101 
7040 
0031 
0060 
0036 
0060 
5414 
6612 
7400 
ОШО] 
7050 
coli 
0050 
0012 
0060 
0041 
0060 
DUO 
0060 
2202 
9955 
9027 
уе» 
0051 
2960 
9026 
0060 
2061 
6202 
2461 
1326 
6111 
0101 
7040 
0031 
0060 


loop 


mask 
next 


Toopl 


adn 
std 
Ta 
sta 
sta 
lan 
sta. 
pta 
pu 


Ji s 
lf 
nod 
pta 
ірі 


aod 
pjo 


pta 
Jpi 


Lad 
pif 
Ted 
lpb 
nzf 
pta 
ШЕШ 


5500 
= | 
link make link 
O 


utwo 
scale |В 
2 

two 


ашың 
om 
mode 
sens 
buf 
ubuf 
mask 
next 


compute vmax times sens 


arith 
oa 

buf 

two Е 
buf 
scale 
Доор 
7400 


scale up bur 


unconditional jump 


aritn 
41 

but 
dist 
But 

И 

DUT 
diff 
Fur F 
2 
index5 
dtl 
Que 

DR 
buf 
ат 
pui 
ubuf 
2 
ubuf 
mask 
contin 


compute vmax sens/dist 


compute vmax sens dt/dist diff 
G scale up buf 


arith | A 
31 
DUL 
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0056 two 


0060 buf H 

5414 aod scale 

6614 рју loopl 

0101 contin pta 

7040 dipi а 

005] 41 

0060 buf 

0012 415% 

0064 rte compute vmax sens dt/diff 415%2 
0031 51 

0064 rt2 J 

0055 іпдех5 

0064 rt2 compute vmax sens dt t/diff dist2 
0002 2 

0060 buf 

0064 rt2 

0064 rt? |  rt2 now computed 
0501 Ісп 1 

501% rad scale ІК 

2014 loop? 144 scale 

6015 Zit exit |. 

0101 pta 

7040 Jpi arith 

0081 41 

0064 rt2 

0036 two м 

особь гђа scale rt2 Lack down 
0501 len L 

PONI rad scale 

OLOO län О 

6413 Ею  loop2 

2064 exit Van. Bee 

0201 lan. d 

4060 ste buf 

0800 làn 9 М 

4061 std орц get round off error 
2064 јад rte 

6203 pif corect|P 

2460 led buf 

4060 std buf 

0101 corect pta 

ТОКО ра а 

0081 hy 

006% rte 

0036 two 

0064 rt2 n 

0001 14 

0065 г%2 

0060 buf 

0064 rt2 add round off correction 
7006 ірі link 


2006 link equ б 
0014 scale equ 14 
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0026 
0027 
0056 
0057 
0002 
0040 
0055 
0060 
0061 
0000 
0012 
0064 
0065 
0005 
0000 


О 
dul 
TWO 
utwo 


arith 
index5 


ubuf 
Sens 
dist 
Ius 


UTE 
¿ee 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


equ 


end 
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APPENDIX III 
MAINTENANCE OF ACCURACY OF ARITHMETIC COMPUTATIONS 

Section 5 of Chapter III refers to the use of a CDC 160 computer 
for the graphically orientated design process. This particular computer 
was limited in available memory capacity as well as computer word size. 
This limitation imposed the use of twenty-two bit fixed-point arithmetic 
for all arithmetic computations. In order to maintain accuracy, special 
procedures were necessary to avoid large round-off errors. By way of 
illustration of the method used, reference is made to figure 36 which 18 
the flow diagram for the fixdpt subroutine. This subroutine does a 
special sequence of arithmetic operations which will be studied. Start- 
ing with the multiplication of step C, steps D and E are carried out to 
ensure the number is scaled up to as large a number as the twenty-two 
bit format will permit. The variable "scale" contains the power of two 
used in scaling up this product. Further operations are performed in F, 
and іп G the number is scaled up again. Still further computations are 
performed using the full accuracy of the machine while choosing the order 
of operations to ensure overflow does not occur. In L and M, the result 
is scaled down until the number has a scale factor of two. The last bit 
indicates whether the number is to be rounded off by truncation only or 
by truncation with unit correction. For negative numbers the correction 
factor is negative as sensed in step Q. Descaling to unity scale factor 
and addition of round-off correction in step R completes the computations. 
The above procedure ensures accuracy without the use of floating-point 


arithmetic. 
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